(rmail-forward): Anchor `mail-header-separator' on both

sides to match whole line, not just initial substring.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 79649a935b6639ec41a954db7cd4ef36031cc621..cb2c36adc03fdfa11095c4d8fe9fe3fa90f63393 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2009,7 +2009,7 @@ see the documentation of `rmail-resend'."
            ;; Insert after header separator--before signature if any.
            (goto-char (point-min))
            (search-forward-regexp
-            (concat "^" (regexp-quote mail-header-separator)))
+            (concat "^" (regexp-quote mail-header-separator) "$"))
            (forward-line 1)
            (insert-buffer forward-buffer))))))